﻿Public Class Frm4BodegasNuevas
    Public Function cargarTBodegas() As Boolean
        'Objeto Roles
        Dim accion As New BodegaDAO
        'Tabla temporal de roles
        Dim tabla As DataTable
        tabla = accion.mostrarTipoBodegas
        'Comprobar si hay roles
        If tabla Is Nothing Then
            Return False
        Else

            'Trabajar con el control combox
            With cbxTipo
                'No se permite modificar
                .DataSource = accion.mostrarTipoBodegas
                'Fuentes de dtao
                .DropDownStyle = ComboBoxStyle.DropDownList
                'Campo a mostrar
                .DisplayMember = "Nombre_Bodega"
                'Clave principal
                .ValueMember = "ID_Tipo_Bodega"
                'No mostrar ningun rol
                .SelectedIndex = -1
            End With
            Return True
        End If
    End Function
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Frm4BodegasMenu.Show()
        Me.Close()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Clase Usuario
        Dim dato As New Bodega
        'Clase Operaciones
        Dim accion As New BodegaDAO
        'Asignar los datos
        If txtNombre.Text = String.Empty Then
            ErrorProvider1.SetError(txtNombre, "Debe de ingresar el rol")
        Else
            ErrorProvider1.SetError(txtNombre, "")
            dato.pDescrip = txtNombre.Text
            dato.pIdTBodega = cbxTipo.SelectedValue
            'Agregar registro
            If accion.agregar(dato) Then
                MessageBox.Show("Registro almacenado", "Guardar", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Frm4BodegasMenu.Show()
                Me.Close()
            Else
                MessageBox.Show("No se puede guardar el registro, contacte al administrador", "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            End If

        End If
    End Sub

    Private Sub Frm4BodegasNuevas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cargarTBodegas()

    End Sub
End Class